home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / comm / mail / Mutt089src.lha / Mutt-0.89i-AMIGA / src / reap.pl < prev    next >
Perl Script  |  1998-01-28  |  391b  |  27 lines
  1. #!/usr/bin/perl
  2. #
  3. # A small script to strip out any "illegal" PGP code to make sure it is
  4. # safe for International export.
  5. #
  6. $word = shift;
  7. $illegal = 0;
  8. $count = 0;
  9. while (<>)
  10. {
  11.     if (/^#if/)
  12.     {
  13.         if (/${word}/) { $illegal = 1; }
  14.         if ($illegal) { $count++; }
  15.     }
  16.     elsif ($illegal && /^#endif/)
  17.     {
  18.         $count--;
  19.         if ($count == 0)
  20.         {
  21.             $illegal = 0;
  22.             next;
  23.         }
  24.     }
  25.     print if (! $illegal);
  26. }
  27.